5 GOTO70
10 GETMM$:IF(MM$="")OR(AS=.)THENRETURN
15 IFMM$="[136]"THENGOSUB1460:POKE198,.:RETURN
20 IF(MM$="[134]")AND(AS=1)THEN1200
30 RETURN
70 GOSUB60100:CLR:PRINT"[147]":GOTO1980
80 OPEN4,4:PRINT#4:CLOSE4:IF ST AND 128 THEN OFF=1:GOTO120
90 OPEN4,4:PRINT#4,"COLOR-MATCH PUZZLE":CLOSE4
100 OFF=0:P=580:GOSUB140:PRINT"";
110 OPEN3,3:OPEN4,4:FORI=1584TO1863:GET#3